mapeq is package{
  main() do
  {
    M1 has type map of (string,integer);
    M1 is hash{"alpha"->1; "beta"->2; "gamma"->3};
    
    L1 is list{"alpha"; "beta"; "gamma"};
    
    M2 is valof{
      var M := hash{};
      for Ix in iota(1,3,1) do
        M[L1[Ix-1]]:= Ix;
      valis M
    };
    
    logMsg(info,"M1=$M1");
    logMsg(info,"M2=$M2");
    assert M1=M2;
    
    assert M1!=hash{"alpha"->1};
    assert M1!=hash{"alpha"->1; "beta"->2; "gamma"->3;"delta"->4};
  }
}